home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / ODYSSEY.T < prev    next >
Text File  |  1991-02-16  |  5KB  |  153 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  :
  6.  : Entry in %ZCUSER.IDS for Odyssey/Modulex: remote,password,handle,number
  7.  :   remote:   argument of "call" command
  8.  :   password: signon password (required)
  9.  :   name:     name. Assumed equal to "%n1 %n2" if not specified.
  10.  :   number:   Optional: not used if absent
  11.  handshake on;ena -K!EZ
  12.  p?0 findq "\n%remote," %lib/%ZCUSER.ids
  13.  if ? split z0 , , ,;if %z1 goto haveuser
  14.  pat;pat 24cp "rz\r**\030" "@rz -p";while c wait -f600
  15.  if r nolog close
  16.  return
  17. haveuser:
  18.  ife !%z2 sets z2 "%n1 %n2"
  19.  pat 23cp "More [" \336C
  20.  set fpgup "@accept s0 Upload-Filename:;if %s0 sz %s0"
  21.  set fpgdn "@accept s0 Download-Filename:;if %s0 rz %s0"
  22.  :: Ctrl-D for batch download
  23.  :: Ctrl-U for batch upload
  24.  pat;pat 0c "Press ENTER to load" \336\r
  25.  pat 1c ", Or NEW : " "@mput \b\b\b;ife %z3 mput %z3\r;else mput %z2\r"
  26.  pat 2c "%z2? [Y/N]: " "Y"
  27.  ::pat 2c "[DOTS ECHO]       : " "%z2\r"
  28.  pat 3c "assword" "%z1\r"
  29.  pat 4c "(XXX)XXX-" "%n5\r"
  30.  pat 5i "Time Left Today"
  31.  wait -f50;if n bye;ife r nolog close;return
  32.  : pat;pat 0i \f S;pat 1i \E[2J S;wait -f10;if n bye;ife r nolog close;return
  33. main:
  34.  pat;pat 0c "Tap Any Key To Go On!" \336\r
  35.  pat 1c "Tap Any Key To Continue!" \336\336\r
  36.  pat 2c "[ * ]" \336\r
  37.  pat 4c ", or ENTER to continue :" \336\r
  38.  pat 5c "\nCHOICE : " \336\336\336D
  39.  pat 6c$ "[0m" \r
  40.  pat 7c "\E[2J\E[2;" "S"
  41.  pat 8 "?=HELP"
  42.  pat 9 "--=> ("
  43.  wait -f50;if n bye;ife r nolog close;return
  44.  if 9 set s6 \025;set s7 \004
  45.  else set s6 U;set s7 D
  46.  pat;mput "F";pat 0c "FILE";pat 1 "?=HELP";pat 2 "] :"
  47.  wait -f30;if n bye;ife r nolog close;return
  48.  if !0 goto nofiles
  49.  if !f%n8/%remote.ul goto nupl
  50.  : Upload files listed in <bbs>.ul as follows: area,filename.ext,description
  51.  : description can be up to 78 bytes in length
  52.  display inhibit;open -!g %n8/%remote.ul;display noinhibit
  53.  if !t goto dupl
  54. ulsk:
  55.  grab z1;if !t goto dupl
  56.  setc z9 \032;if Iz9,z1 nolog closetx;goto dupl
  57.  echoc "%z1";split z1 , , "";if !%z0||!%z1||!%z2 goback ulsk
  58.  pat;mput %s6
  59.  pat 0c "Logoff when finished?" n
  60.  pat 1c "FILENAME\r\n:" "%z0,%z1\r"
  61.  pat 2c "]\r\n:" "@mput \b\b\b\T%z2;mput \r"
  62.  pat 4  "transfer with Z"
  63.  pat 5 "?=HELP";pat 6 "--=> ("
  64.  wait -f30;if n bye;ife r nolog close;return
  65.  if !4 goback ulsk
  66.  sz %z1
  67.  pat;pat 0 "?=HELP";pat 1 "--=> ("
  68.  wait -f30;if n bye;ife r nolog close;return
  69.  goback ulsk
  70. dupl:
  71.  del %n8/%remote.ul
  72. nupl:
  73.  gosub .%lib/agelist.t;if as0<14 goto nolist
  74.  ki;create -y %n7/%remote.lst
  75.  if r split t " ";echof "\T%telno %remote %z1"
  76.  set z0 1
  77. olist:
  78.  if r w
  79.  mput "L"
  80.  pat; pat 0i "List]: " "%z0\r"
  81.  pat 1i "--=> (";pat 2i "?=HELP"
  82.  wait -f30;if n bye;ife r nolog close;return
  83.  if !0 goto olistd
  84.  pat;mput %z0\r
  85.  pat 0c "List]: " "\r";pat 1i "--=> (";pat 2i "?=HELP"
  86.  wait -f30;if n bye;ife r nolog close;return
  87.  if 0 goto olistd
  88.  pat; pat 0i "] : "; pat 1i "]: "
  89.  wait -f30;if n bye;ife r nolog close;return
  90.  setn z0 z0+1;goback olist
  91. olistd:
  92.  pat; pat 0i "] : "; pat 1i "]: "
  93.  wait -f30;if n bye;ife r nolog close;return
  94.  if r close
  95. nolist:
  96.  ki;create -+ %n9/ZC%d%ano.LOG
  97.  if !f%n8/%remote.dl goto ndnl
  98.  : Download files listed in <bbs>.dl as follows: area,filename.ext
  99.  display inhibit;open -!g %n8/%remote.dl;display noinhibit
  100.  if !t goto ddnl
  101. dlsk:
  102.  grab z1;if !t goto ddnl
  103.  setc z9 \032;if Iz9,z1 nolog closetx;goto ddnl
  104.  echoc "%z1";split z1 , "";if !%z0||!%z1||az0==0 goback dlsk
  105.  pat;mput %s7
  106.  pat 0c "Logoff when finished?" n
  107.  pat 1c "FILENAME\r\n:" "%z0,%z1\r"
  108.  pat 2 "?=HELP";pat 3 "--=> ("
  109.  pat 4i "rz\r**\030"
  110.  wait -f30;if n bye;ife r nolog close;return
  111.  if 2||3 goback dlsk
  112.  rz -p;pat;pat 0 "?=HELP";pat 1 "--=> ("
  113.  wait -f30;if n bye;ife r nolog close;return
  114.  goback dlsk
  115. ddnl:
  116.  del %n8/%remote.dl
  117. ndnl:
  118.  pat;mput Q
  119.  pat 1 "?=HELP";pat 2 "--=> ("
  120.  wait -f30;if n bye;ife r nolog close;return
  121. nofiles:
  122.  pat;mput M;pat 0l "Bases Have New Messages";pat 1 "?=HELP";pat 2 "--=> ("
  123.  wait -f30;if n bye;ife r nolog close;return
  124.  if !0 goto msgnonew
  125.  split y2 ":" "";sets s2 %z1
  126.  pat;pat 1 "?=HELP";pat 2 "--=> ("
  127.  pat;mput N
  128.  pat 0c "or [C]urrent [A/C]" A
  129.  pat 1c "Pause between messages?" N
  130.  pat 2c "Skip MXNET bases?" N
  131.  pat 3l "Newscanning Base :"
  132.  wait -f30;if n bye;ife r nolog close;return
  133.  if r w
  134. msgnbase:
  135.  split s2 ", " "";sets s1 %z0;sets s2 %z1
  136. msgnnum:
  137.  if %s1==1 sets s1 "0%s1"
  138.  set z1 "";if !f%n9/%remote%s1.log split y2 ":" "";while Jz1,m split z1 m ""
  139.  ki;ife r nolog close;create -+S!i %n9/%remote%s1.log;if %z1 echof "\T%z1"
  140.  pat;pat 0c \r\n\r\n @w
  141.  pat 1l "\nNewscanning Base :"
  142.  pat 2$ "]: "
  143.  pat 3$ "] : "
  144.  wait -f30;if n bye;ife r nolog close;return
  145.  if 1 ife %s2 goback msgnbase;setn s1 s1+1;goback msgnnum
  146.  ki;ife r nolog close;create -+ %n9/ZC%d%ano.LOG
  147. msgnonew:
  148.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  149.  pat;pat 24cp "rz\r**\030" "@rz -p";wait -F5;if !c bye;ife r nolog close;return
  150.  mput g;wait -F35;ife c bye;ife r nolog close;return
  151.  if r nolog close
  152.  return
  153.